10 DIMH(75):FORI=0TO9
20 H(48+I)=I:H(65+I)=I+10:NEXT
30 FORI=679TO764:READA$
40 H=ASC(A$):L=ASC(RIGHT$(A$,1))
50 D=H(H)*16+H(L):POKEI,D
60 NEXT:POKE794,167:POKE795,2
100 DATAA5,B8,85,FB,A5,BA,C9,04,F0,03,4C,4A,F3,A9,03,85,B9,A9,06,85
110 DATABA,A9,7F,85,B8,20,4A,F3,A6,B8,20,C9,FF,A9,00,20,D2,FF,A5,B8
120 DATA20,C3,FF,A9,66,C5,B9,F0,15,85,B9,A9,7E,85,B8,AD,18,D0,29,02
130 DATA4A,18,69,30,8D,C9,02,4C,C0,02,A9,00,85,B9,A9,00,8D,C9,02,A5
140 DATAFB,85,B8,4C,4A,F3